VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsTipoDocumento"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'Clase de tipo_documento

Public WithEvents orset As ClsRecordset
Attribute orset.VB_VarHelpID = -1

Public Event DataChanged()

'Miembros de la Clase
Public codigo As String
Public codTipoServicio As String
Public nombre As String
Public descripcion As String
Public numero_ventas_cliente As Integer
Public porcentaje_cargos As Double
Public porcentaje_comisiones As Double
Public nombre_cliente As String
Public nombre_tercero As String

'Constructor y Destructor
Private Sub Class_Initialize()
    Set orset = New ClsRecordset
    orset.setCampos dbCampos(tdo)
    orset.setTablas Array(tdo)
End Sub
Private Sub Class_Terminate()
    Set orset = Nothing
End Sub
' Generic Data management methods
Public Sub consulta()
    orset.consulta
End Sub
Public Sub consultaXTipoServicio(codTipoServicio As String)
    orset.consulta Array(tdo_tse_id & "=" & codTipoServicio)
End Sub
Public Sub consultaDatos(codig As String)
    orset.consulta Array(tdo_id & "=" & codig)
    orset.CierraRec
End Sub
Private Sub Reload_members()
    With orset
        codigo = .getDato(tdo_id)
        codTipoServicio = .getDato(tdo_tse_id)
        nombre = .getDato(tdo_nombre)
        descripcion = .getDato(tdo_descripcion)
        numero_ventas_cliente = .getDato(tdo_cnf_numero_ventas_cliente)
        porcentaje_cargos = .getDato(tdo_cnf_porcentaje_cargos)
        porcentaje_comisiones = .getDato(tdo_cnf_porcentaje_terceros)
        nombre_cliente = .getDato(tdo_cnf_nombre_cliente)
        nombre_tercero = .getDato(tdo_cnf_nombre_tercero)
    End With
    RaiseEvent DataChanged
End Sub
Public Sub Nuevo(newTseId As String, newNombre As String, newDescripcion As String, newCnfNumeroVentasCliente As String, newCnfPorcentajeCargos As String, newCnfPorcentajeTerceros As String, newCnfNombreCliente As String, newCnfNombreTercero As String)
    orset.sInsert Array("", newTseId, newNombre, newDescripcion, newCnfNumeroVentasCliente, newCnfPorcentajeCargos, newCnfPorcentajeTerceros, newCnfNombreCliente, newCnfNombreTercero)
End Sub
Public Sub Modificar(codig As String, newTseId As String, newNombre As String, newDescripcion As String, newCnfNumeroVentasCliente As String, newCnfPorcentajeCargos As String, newCnfPorcentajeTerceros As String, newCnfNombreCliente As String, newCnfNombreTercero As String)
    orset.sUpdate Array(codig, newTseId, newNombre, newDescripcion, newCnfNumeroVentasCliente, newCnfPorcentajeCargos, newCnfPorcentajeTerceros, newCnfNombreCliente, newCnfNombreTercero)
End Sub
Public Sub Borrar(codig As String)
    orset.sDelete codig
End Sub

Private Sub orset_DataChanged()
    Reload_members
End Sub
